/* Move Colonists */
/* Made by Dell Bond */
/* Version 1.0 */

Call ZocTimeOut 14400
planet2=ZocAsk("Which planet do you want to put the colonists on?")
say ""
say "Which one do you want to take the colonists from?"
stuff1=ZocAsk("1 - Fuel Ore, 2 - Organics, 3 - Equipment")
say "Which one do you want to put the colonists on?"
stuff2=ZocAsk("1 - Fuel Ore, 2 - Organics, 3 - Equipment")
much=ZocAsk("How much colonists do you want to move?")

call zocsend "d"
call zocwait "Planet #"
Planet1=GetNumber(0,0)

call zocsend "qi"
call zocwait "Total Holds    : "
hold=Getnumber(0,0)
call zocsend "l"
call zocsend planet1
call zocsend "^m"

do forever
left= much-hold
if left<=hold then call notmuch1
else
call zocsend "s^mt"
call zocsend stuff1
call zocsend hold
call zocsend "^mql"
call zocsend planet2
call zocsend "^ms^ml"
call zocsend stuff2
call zocsend hold
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
call next

end

exit

next:
much= left-hold
if much<=hold then call notmuch2
else
call zocsend "s^mt"
call zocsend stuff1
call zocsend hold
call zocsend "^mql"
call zocsend planet2
call zocsend "^ms^ml"
call zocsend stuff2
call zocsend hold
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
RETURN(0)

notmuch1:
call zocsend "s^mt"
call zocsend stuff1
call zocsend left
call zocsend "^mql"
call zocsend planet2
call zocsend "^ms^ml"
call zocsend stuff2
call zocsend left
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
exit

notmuch2:
call zocsend "s^mt"
call zocsend stuff1
call zocsend much
call zocsend "^mql"
call zocsend planet2
call zocsend "^ms^ml"
call zocsend stuff2
call zocsend much
call zocsend "^mql"
call zocsend planet1
call zocsend "^m"
exit


GetNumber:
holdfinal=""
call zocwait " "
holds=zoclastline()
DO addchar=1 to length(holds)
        holdsit=substr(holds,addchar,1)
        if holdsit<>"]" then DO
          if holdsit<>"," then holdfinal=holdfinal||holdsit
        end
END
RETURN holdfinal